home *** CD-ROM | disk | FTP | other *** search
/ BBS in a Box 7 / BBS in a Box - Macintosh - Volume VII (BBS in a Box) (January 1993).iso / Files / Prog / T / Think-Pascal-7.0.cpt / THINK Pascal Interfaces / Quickdraw.p < prev    next >
Encoding:
Text File  |  1991-04-03  |  2.4 KB  |  75 lines  |  [TEXT/PJMM]
  1. {    This file has been processed by The THINK Pascal Source Converter, v1.1.    }
  2.  
  3. {}
  4. {Created: Sunday, January 6, 1991 at 10:59 PM}
  5. {    Quickdraw.p}
  6. {    Pascal Interface to the Macintosh Libraries}
  7. {}
  8. {        Copyright Apple Computer, Inc.    1985-1990}
  9. {        All rights reserved}
  10. {}
  11.  
  12.  
  13. {    RMS    4/3/91        Modified to exclude declarations already in the THINK Pascal built-in interfaces    }
  14.  
  15. unit Quickdraw;
  16. interface
  17.     uses
  18.         Types;
  19.  
  20.     const
  21. { Special Text Transfer Mode    }
  22.         grayishTextOr = 49;
  23.  
  24. { pixel type }
  25.         RGBDirect = 16;                             { 16 & 32 bits/pixel pixelType value }
  26.  
  27. { pmVersion values }
  28.         baseAddr32 = 4;                             {pixmap base address is 32-bit address}
  29.  
  30.         rgnOverflowErr = -147;                      { Region accumulation failed. Resulting region may be currupt }
  31.         insufficientStackErr = -149;                { QuickDraw could not complete the operation }
  32.  
  33.     type
  34.         PixelType = (chunky, chunkyPlanar, planar);
  35.  
  36.         DeviceLoopFlags = set of (singleDevices, dontMatchSeeds, allDevices, DeviceLoopFlags3, DeviceLoopFlags4, DeviceLoopFlags5, DeviceLoopFlags6, DeviceLoopFlags7, DeviceLoopFlags8, DeviceLoopFlags9, DeviceLoopFlags10, DeviceLoopFlags11, DeviceLoopFlags12, DeviceLoopFlags13, DeviceLoopFlags14, DeviceLoopFlags15, DeviceLoopFlags16, DeviceLoopFlags17, DeviceLoopFlags18, DeviceLoopFlags19, DeviceLoopFlags20, DeviceLoopFlags21, DeviceLoopFlags22, DeviceLoopFlags23, DeviceLoopFlags24, DeviceLoopFlags25, DeviceLoopFlags26, DeviceLoopFlags27, DeviceLoopFlags28, DeviceLoopFlags29, DeviceLoopFlags30, DeviceLoopFlags31);
  37.  
  38.  
  39.         BitMapPtr = ^BitMap;
  40.         BitMapHandle = ^BitMapPtr;
  41.  
  42.         OpenCPicParams = record
  43.                 srcRect: Rect;
  44.                 hRes: Fixed;
  45.                 vRes: Fixed;
  46.                 version: INTEGER;
  47.                 reserved1: INTEGER;
  48.                 reserved2: LONGINT;
  49.             end;
  50.  
  51.  
  52.         DeviceLoopDrawingProcPtr = ProcPtr;
  53.  
  54.     function BitMapToRegionGlue (region: RgnHandle; bMap: BitMap): OSErr;
  55.     function BitMapToRegion (region: RgnHandle; bMap: BitMap): OSErr;
  56.     inline
  57.         $A8D7;
  58.  
  59.     function OpenCPicture (newHeader: OpenCPicParams): PicHandle;
  60.     inline
  61.         $AA20;
  62.     procedure CopyDeepMask (srcBits: BitMap; maskBits: BitMap; dstBits: BitMap; srcRect: Rect; maskRect: Rect; dstRect: Rect; mode: INTEGER; maskRgn: RgnHandle);
  63.     inline
  64.         $AA51;
  65.     procedure DeviceLoop (drawingRgn: RgnHandle; drawingProc: DeviceLoopDrawingProcPtr; userData: LONGINT; flags: DeviceLoopFlags);
  66.     inline
  67.         $ABCA;
  68.     function GetMaskTable: Ptr;
  69.     inline
  70.         $A836, $2E88;
  71.  
  72. implementation
  73. end.
  74.  
  75.